program
	int x;
	int y;
	int z;

	x := 1;
	y := -1;
	z := 0;

	while (x>0) do
		x:=x-1;
		z:=y*y;
	od
	

end

